home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Q-R / Recognize.94.cpt / Recognize .94 / card_13935.txt < prev    next >
Text File  |  1988-11-13  |  12KB  |  596 lines
  1. -- card: 13935 from stack: in.94
  2. -- bmap block id: 15314
  3. -- flags: 0000
  4. -- background id: 2792
  5. -- name: NewTerminal
  6. ----- HyperTalk script -----
  7. on opencard
  8.   global already,exitcmd
  9.   put "Return" into exitcmd
  10.   put false into already
  11. end opencard
  12.  
  13. on closecard
  14. end closecard
  15.  
  16.  
  17. on docardsearch
  18.   global already
  19.   if charsavailable() <> 0 then idle
  20.  
  21.   if bkgnd field infield contains "RETURN to exit" then
  22.     if already <> true then
  23.       put true into already
  24.       donedisplay
  25.     else exit docardsearch
  26.   end if
  27. end docardsearch
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36. on donedisplay
  37.   global cols,clearscrn
  38.   repeat until line 1 of bkgnd field infield contains "# of columns:"
  39.     delete line 1 of bkgnd field infield
  40.   end repeat
  41.   unhilite
  42.   newbuttons
  43.   put last word of line 1 of bkgnd field infield into cols
  44.   put cols into card field colnum
  45.   put last word of line 8 of bkgnd field infield into term
  46.   put the number of chars in term into theno
  47.   put char 1 to theno of term into term
  48.   if term is "VT100" then set the icon of card button "Term" to 28260
  49.   else set the icon of card button "Term" to 28994
  50.   put last word of line 9 of bkgnd field infield into clearscrn
  51.   put clearscrn into card field clearscreen
  52. end donedisplay
  53.  
  54.  
  55. on setfields
  56.   repeat with i = 1 to 9
  57.     set the autotab of card field i to true
  58.     set the locktext of card field i to true
  59.   end repeat
  60. end setfields
  61.  
  62. on unhilite
  63.   repeat with i=1 to the number of card buttons
  64.     set the hilite of card button i to false
  65.   end repeat
  66. end unhilite
  67.  
  68. on newdo
  69.   repeat with i = 16 to 25
  70.     show card button i
  71.     select card button i
  72.     domenu "Clear Button"
  73.   end repeat
  74. end newdo
  75.  
  76. on NewButtons
  77.   put 2 into t
  78.   repeat with i = 2 to 7
  79.     put last word of line i of bkgnd field infield into theword
  80.     if theword Contains "Yes" then
  81.       set the icon of card button i to 28260
  82.     else
  83.       set the icon of card button i to 28994
  84.     end if
  85.     add 1 to t
  86.   end repeat
  87. end newbuttons
  88.  
  89. on changicon
  90.   repeat with i = 2 to the number of buttons
  91.     set the icon of card button i to 28260
  92.   end repeat
  93. end changicon
  94.  
  95.  
  96.  
  97.  
  98. -- part 27 (field)
  99. -- low flags: 03
  100. -- high flags: 0000
  101. -- rect: left=6 top=64 right=79 bottom=124
  102. -- title width / last selected line: 0
  103. -- icon id / first selected line: 0 / 0
  104. -- text alignment: 0
  105. -- font id: 2
  106. -- text size: 10
  107. -- style flags: 0
  108. -- line height: 13
  109. -- part name: columns
  110.  
  111.  
  112. -- part 28 (field)
  113. -- low flags: 03
  114. -- high flags: 0000
  115. -- rect: left=193 top=60 right=75 bottom=260
  116. -- title width / last selected line: 0
  117. -- icon id / first selected line: 0 / 0
  118. -- text alignment: 0
  119. -- font id: 2
  120. -- text size: 10
  121. -- style flags: 0
  122. -- line height: 13
  123. -- part name: Linefeeds
  124.  
  125.  
  126. -- part 29 (field)
  127. -- low flags: 03
  128. -- high flags: 0000
  129. -- rect: left=341 top=61 right=76 bottom=471
  130. -- title width / last selected line: 0
  131. -- icon id / first selected line: 0 / 0
  132. -- text alignment: 0
  133. -- font id: 2
  134. -- text size: 10
  135. -- style flags: 0
  136. -- line height: 13
  137. -- part name: Backspace
  138.  
  139.  
  140. -- part 30 (field)
  141. -- low flags: 03
  142. -- high flags: 0000
  143. -- rect: left=5 top=139 right=154 bottom=125
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 0
  147. -- font id: 2
  148. -- text size: 10
  149. -- style flags: 0
  150. -- line height: 13
  151. -- part name: Mode
  152.  
  153.  
  154. -- part 31 (field)
  155. -- low flags: 03
  156. -- high flags: 0000
  157. -- rect: left=194 top=140 right=154 bottom=261
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 0
  161. -- font id: 2
  162. -- text size: 10
  163. -- style flags: 0
  164. -- line height: 13
  165. -- part name: hotmenus
  166.  
  167.  
  168. -- part 32 (field)
  169. -- low flags: 03
  170. -- high flags: 0000
  171. -- rect: left=365 top=140 right=155 bottom=459
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 0 / 0
  174. -- text alignment: 0
  175. -- font id: 2
  176. -- text size: 10
  177. -- style flags: 0
  178. -- line height: 13
  179. -- part name: nobother
  180.  
  181.  
  182. -- part 33 (field)
  183. -- low flags: 03
  184. -- high flags: 0000
  185. -- rect: left=5 top=211 right=227 bottom=127
  186. -- title width / last selected line: 0
  187. -- icon id / first selected line: 0 / 0
  188. -- text alignment: 0
  189. -- font id: 2
  190. -- text size: 10
  191. -- style flags: 0
  192. -- line height: 13
  193. -- part name: lognotify
  194.  
  195.  
  196. -- part 34 (field)
  197. -- low flags: 03
  198. -- high flags: 0000
  199. -- rect: left=187 top=209 right=226 bottom=276
  200. -- title width / last selected line: 0
  201. -- icon id / first selected line: 0 / 0
  202. -- text alignment: 0
  203. -- font id: 2
  204. -- text size: 10
  205. -- style flags: 0
  206. -- line height: 13
  207. -- part name: terminal
  208.  
  209.  
  210. -- part 35 (field)
  211. -- low flags: 03
  212. -- high flags: 0000
  213. -- rect: left=355 top=210 right=226 bottom=489
  214. -- title width / last selected line: 0
  215. -- icon id / first selected line: 0 / 0
  216. -- text alignment: 0
  217. -- font id: 2
  218. -- text size: 10
  219. -- style flags: 0
  220. -- line height: 13
  221. -- part name: screen
  222.  
  223.  
  224. -- part 36 (field)
  225. -- low flags: 02
  226. -- high flags: 4002
  227. -- rect: left=33 top=82 right=100 bottom=82
  228. -- title width / last selected line: 0
  229. -- icon id / first selected line: 0 / 0
  230. -- text alignment: 0
  231. -- font id: 2
  232. -- text size: 12
  233. -- style flags: 256
  234. -- line height: 16
  235. -- part name: colnum
  236. ----- HyperTalk script -----
  237. on openfield
  238.   global thecol
  239.   put target into thecol
  240. end openfield
  241.  
  242. on closefield
  243.   global thecol
  244.   if target <> thecol then
  245.     sendsport 1,false,1
  246.     sendsport 1,false, target
  247.     sendsport 1,false,return
  248.   end if
  249. end closefield
  250.  
  251.  
  252.  
  253. -- part 37 (field)
  254. -- low flags: 02
  255. -- high flags: 4002
  256. -- rect: left=396 top=227 right=245 bottom=445
  257. -- title width / last selected line: 0
  258. -- icon id / first selected line: 0 / 0
  259. -- text alignment: 0
  260. -- font id: 2
  261. -- text size: 12
  262. -- style flags: 256
  263. -- line height: 16
  264. -- part name: clearscreen
  265. ----- HyperTalk script -----
  266. on openfield
  267.   global thechar
  268.   put target into thechar
  269. end openfield
  270.  
  271. on closefield
  272.   global thechar
  273.   if target <> thechar then
  274.     sendsport 1,false,9
  275.     sendsport 1,false, target
  276.     sendsport 1,false,return
  277.   end if
  278. end closefield
  279.  
  280.  
  281.  
  282. -- part 53 (button)
  283. -- low flags: 00
  284. -- high flags: A003
  285. -- rect: left=156 top=303 right=337 bottom=369
  286. -- title width / last selected line: 0
  287. -- icon id / first selected line: 0 / 0
  288. -- text alignment: 1
  289. -- font id: 0
  290. -- text size: 12
  291. -- style flags: 0
  292. -- line height: 16
  293. -- part name: R  E  T  U  R  N  
  294. ----- HyperTalk script -----
  295. on mouseUp
  296.   sendsport return
  297.   go to card mainmenu
  298. end mouseUp
  299.  
  300.  
  301.  
  302. -- part 54 (field)
  303. -- low flags: 81
  304. -- high flags: 0007
  305. -- rect: left=14 top=40 right=257 bottom=491
  306. -- title width / last selected line: 0
  307. -- icon id / first selected line: 0 / 0
  308. -- text alignment: 0
  309. -- font id: 3
  310. -- text size: 10
  311. -- style flags: 256
  312. -- line height: 13
  313. -- part name: Bulletins
  314.  
  315.  
  316. -- part 72 (button)
  317. -- low flags: 00
  318. -- high flags: 0000
  319. -- rect: left=209 top=83 right=117 bottom=245
  320. -- title width / last selected line: 0
  321. -- icon id / first selected line: 28994 / 28994
  322. -- text alignment: 1
  323. -- font id: 0
  324. -- text size: 12
  325. -- style flags: 0
  326. -- line height: 16
  327. -- part name: Term 2
  328. ----- HyperTalk script -----
  329. on mouseUp
  330.   put the short name of me into temp
  331.   put word 2 of temp into myno
  332.   get the icon of me
  333.   put it into mine
  334.   if it is 28260 then
  335.     sendsport 1,false, myno
  336.     sendsport 1,false, "n"
  337.     set the icon of me to 28994
  338.   else
  339.     sendsport 1,false, myno
  340.     sendsport 1,false, "y"
  341.     set the icon of me to 28260
  342.   end if
  343. end mouseUp
  344.  
  345.  
  346.  
  347. -- part 73 (button)
  348. -- low flags: 00
  349. -- high flags: 0000
  350. -- rect: left=394 top=83 right=117 bottom=430
  351. -- title width / last selected line: 0
  352. -- icon id / first selected line: 28994 / 28994
  353. -- text alignment: 1
  354. -- font id: 0
  355. -- text size: 12
  356. -- style flags: 0
  357. -- line height: 16
  358. -- part name: 
  359. ----- HyperTalk script -----
  360. on mouseUp
  361.   put the short name of me into temp
  362.   put word 4 of temp into myno
  363.   get the icon of me
  364.   put it into mine
  365.   if it is 28260 then
  366.     sendsport 1,false, myno
  367.     sendsport 1,false, "n"
  368.     set the icon of me to 28994
  369.   else
  370.     sendsport 1,false, myno
  371.     sendsport 1,false, "y"
  372.     set the icon of me to 28260
  373.   end if
  374. end mouseUp
  375.  
  376.  
  377.  
  378. -- part 74 (button)
  379. -- low flags: 00
  380. -- high flags: 0000
  381. -- rect: left=43 top=165 right=199 bottom=79
  382. -- title width / last selected line: 0
  383. -- icon id / first selected line: 28260 / 28260
  384. -- text alignment: 1
  385. -- font id: 0
  386. -- text size: 12
  387. -- style flags: 0
  388. -- line height: 16
  389. -- part name: 
  390. ----- HyperTalk script -----
  391. on mouseUp
  392.   put the short name of me into temp
  393.   put word 4 of temp into myno
  394.   get the icon of me
  395.   put it into mine
  396.   if it is 28260 then
  397.     sendsport myno
  398.     sendsport  "n"
  399.     set the icon of me to 28994
  400.   else
  401.     sendsport  myno
  402.     sendsport  "y"
  403.     set the icon of me to 28260
  404.   end if
  405. end mouseUp
  406.  
  407.  
  408.  
  409. -- part 75 (button)
  410. -- low flags: 00
  411. -- high flags: 0000
  412. -- rect: left=208 top=165 right=199 bottom=244
  413. -- title width / last selected line: 0
  414. -- icon id / first selected line: 28260 / 28260
  415. -- text alignment: 1
  416. -- font id: 0
  417. -- text size: 12
  418. -- style flags: 0
  419. -- line height: 16
  420. -- part name: 
  421. ----- HyperTalk script -----
  422. on mouseUp
  423.   put the short name of me into temp
  424.   put word 4 of temp into myno
  425.   get the icon of me
  426.   put it into mine
  427.   if it is 28260 then
  428.     sendsport  myno
  429.     sendsport  "n"
  430.     set the icon of me to 28994
  431.   else
  432.     sendsport  myno
  433.     sendsport  "y"
  434.     set the icon of me to 28260
  435.   end if
  436. end mouseUp
  437.  
  438.  
  439.  
  440. -- part 76 (button)
  441. -- low flags: 00
  442. -- high flags: 0000
  443. -- rect: left=399 top=165 right=199 bottom=435
  444. -- title width / last selected line: 0
  445. -- icon id / first selected line: 28994 / 28994
  446. -- text alignment: 1
  447. -- font id: 0
  448. -- text size: 12
  449. -- style flags: 0
  450. -- line height: 16
  451. -- part name: 
  452. ----- HyperTalk script -----
  453. on mouseUp
  454.   put the short name of me into temp
  455.   put word 4 of temp into myno
  456.   get the icon of me
  457.   put it into mine
  458.   if it is 28260 then
  459.     sendsport 1,false, myno
  460.     sendsport 1,false, "n"
  461.     set the icon of me to 28994
  462.   else
  463.     sendsport 1,false, myno
  464.     sendsport 1,false, "y"
  465.     set the icon of me to 28260
  466.   end if
  467. end mouseUp
  468.  
  469.  
  470.  
  471. -- part 77 (button)
  472. -- low flags: 00
  473. -- high flags: 0000
  474. -- rect: left=210 top=244 right=278 bottom=246
  475. -- title width / last selected line: 0
  476. -- icon id / first selected line: 28994 / 28994
  477. -- text alignment: 1
  478. -- font id: 0
  479. -- text size: 12
  480. -- style flags: 0
  481. -- line height: 16
  482. -- part name: 
  483. ----- HyperTalk script -----
  484. on mouseUp
  485.   put the short name of me into temp
  486.   put word 4 of temp into myno
  487.   get the icon of me
  488.   put it into mine
  489.   if it is 28260 then
  490.     sendsport 1,false, myno
  491.     sendsport 1,false, "n"
  492.     set the icon of me to 28994
  493.   else
  494.     sendsport 1,false, myno
  495.     sendsport 1,false, "y"
  496.     set the icon of me to 28260
  497.   end if
  498. end mouseUp
  499.  
  500.  
  501.  
  502. -- part 78 (button)
  503. -- low flags: 00
  504. -- high flags: 0000
  505. -- rect: left=42 top=243 right=276 bottom=81
  506. -- title width / last selected line: 0
  507. -- icon id / first selected line: 28994 / 28994
  508. -- text alignment: 1
  509. -- font id: 0
  510. -- text size: 12
  511. -- style flags: 0
  512. -- line height: 16
  513. -- part name: Term
  514. ----- HyperTalk script -----
  515. on mouseUp
  516.   put the short name of me into temp
  517.   put word 4 of temp into myno
  518.   get the icon of me
  519.   put it into mine
  520.   if it is 28260 then
  521.     sendsport 1,false, myno
  522.     sendsport 1,false, "n"
  523.     set the icon of me to 28994
  524.   else
  525.     sendsport 1,false, myno
  526.     sendsport 1,false, "y"
  527.     set the icon of me to 28260
  528.   end if
  529. end mouseUp
  530.  
  531.  
  532.  
  533. -- part contents for background part 1
  534. ----- text -----
  535. Terminal Setup
  536.  
  537. -- part contents for card part 27
  538. ----- text -----
  539. Number of Columns
  540.  
  541. -- part contents for card part 28
  542. ----- text -----
  543. Line Feeds
  544.  
  545. -- part contents for card part 29
  546. ----- text -----
  547. Destructive Backspace
  548.  
  549. -- part contents for card part 30
  550. ----- text -----
  551. User Beginner Mode
  552.  
  553. -- part contents for card part 31
  554. ----- text -----
  555. Hot Menus
  556.  
  557. -- part contents for card part 32
  558. ----- text -----
  559. No Bother Mode
  560.  
  561. -- part contents for card part 33
  562. ----- text -----
  563. Logon/Logoff Notify
  564.  
  565. -- part contents for card part 34
  566. ----- text -----
  567. Terminal Type
  568.  
  569. -- part contents for card part 35
  570. ----- text -----
  571. Clear Screen Character
  572.  
  573. -- part contents for card part 36
  574. ----- text -----
  575. 80
  576.  
  577. -- part contents for card part 37
  578. ----- text -----
  579. 0
  580.  
  581. -- part contents for background part 3
  582. ----- text -----
  583. 1) # of columns: 80
  584. 2) Line feeds: No
  585. 3) Destructive Backspace: No
  586. 4) Use Beginner Mode: Yes
  587. 5) Hot Menus: Yes
  588. 6) No Bother Mode: No
  589. 7) Logon/Logoff Notify: No
  590. 8) Terminal type: TTY
  591. 9) Clear screen character: 0
  592. T) Test my connection
  593.  
  594. Type * to see display
  595. Type RETURN to exit
  596. Config>